COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE MTAKLUDGE - Mag Tapes Lose!
C00003 ENDMK
C⊗;
	TITLE MTAKLUDGE - Mag Tapes Lose!

	RET←1
	STAT←2
	P←17

	INTERNAL MTAKLU

MTAKLU:	MOVE RET,-1(P)
	DPB RET,[POINT 4,FOO,12]
	DPB RET,[POINT 4,FOO+1,12]
	DPB RET,[POINT 4,FOO+2,12]
	DPB RET,[POINT 4,BAZ,12]
FOO:	GETSTS 0,STAT
	SETSTS 0,17
	IN 0,[	IOWD 1,TEMP#
		0]
	JRST .+2
	JRST .-3
BAZ:	SETSTS 0,@STAT
	SUB P,[XWD 2,2]
	JRST @2(P)

	END